﻿Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.IO
Imports DotNetNuke
Imports NVPortal.Modules.NVNews
Namespace NVPortal.Modules.NVNews
    Public Class danhmuc
        Inherits Entities.Modules.PortalModuleBase
#Region "Event Handlers"
        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not IsPostBack Then
                If (Request("tabid") = "193") Then
                    Me.dm193.Attributes.Add("class", "selected")
                End If
                If (Request("tabid") = "192") Then
                    Me.dm192.Attributes.Add("class", "selected")
                End If
                If (Request("tabid") = "194") Then
                    Me.dm194.Attributes.Add("class", "selected")
                End If
                If (Request("tabid") = "195") Or (Request("tabid") = "303") Then
                    Me.dm195.Attributes.Add("class", "selected")
                End If
                If (Request("tabid") = "196") Then
                    Me.dm196.Attributes.Add("class", "selected")
                End If
                
            End If
        End Sub
        Function CheckTabid(ByVal tabid As Integer) As Integer
            Dim checktab As String = Request.Item("TabId")
            Dim currentTab As String = "<script type='text/javascript'>" _
                                            & "function xXNV_Menu_Setselect(){" _
                                            & "$('#xXNV_Menu > li').removeClass('seleted');" _
                                            & "$('#<%=TabId %>').addClass('seleted');" _
                                            & "}" _
                                            & "</script>"

        End Function
        Public Function ReplaceChuoi(ByVal chuoi As String) As String
            Dim convert As String = Global.ReplaceChuoi.bodau(chuoi).Replace(" ", "-")
            Return convert
        End Function
#End Region
    End Class

End Namespace
